home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / front.lha / front / src / Listing.md < prev    next >
Text File  |  1992-08-18  |  743b  |  34 lines
  1. (* error listing *)
  2.  
  3. (* $Id: Listing.md,v 1.2 1991/11/21 14:47:50 grosch rel $ *)
  4.  
  5. (* $Log: Listing.md,v $
  6.  * Revision 1.2  1991/11/21  14:47:50  grosch
  7.  * new version of RCS on SPARC
  8.  *
  9.  * Revision 1.1  90/06/11  18:45:02  grosch
  10.  * layout improvements
  11.  * 
  12.  * Revision 1.0     88/10/04  14:26:48  vielsack
  13.  * Initial revision
  14.  * 
  15.  *)
  16.  
  17. DEFINITION MODULE Listing;
  18.  
  19. FROM    IO        IMPORT    tFile;
  20. FROM    SYSTEM        IMPORT    ADDRESS;
  21.  
  22. TYPE tListMode = (NoListing, Listing);
  23.  
  24. VAR
  25.   SourceFile : tFile;
  26.   ListFile   : tFile;
  27.   ListMode   : tListMode;
  28.  
  29. PROCEDURE PutError (Code,Class,Line,Column,InfoClass: CARDINAL; Info: ADDRESS);
  30. PROCEDURE HasError (): BOOLEAN;
  31. PROCEDURE GetError (VAR Code,Class,Line,Column,InfoClass: CARDINAL; VAR Info: ADDRESS);
  32.  
  33. END Listing.
  34.